# required fxns: 'srs ratio', 'srs ratio mean', and 'srs ratio total'

sugar=read.csv("http://webpages.uidaho.edu/~renaes/Data/sugarcane.csv",header=T)
View(sugar)

# plots are included in all ratio fxns

N=32; n=6; mux=27752

with(sugar,srs.ratio('C&H',acre1997,acre1999,n,N,mux))
with(sugar,srs.muhaty('C&H',acre1997,acre1999,n,N,mux))
taux=N*mux
with(sugar,srs.tauhaty('C&H',acre1997,acre1999,n,N,taux))